﻿Module Main
    'vive =)


    Public Class Configuracion
        Private Shared objUsuario As New Vichama.Entity.Seguridad.Usuario

        Public Shared Property Usuario() As Vichama.Entity.Seguridad.Usuario

            Get
                Return objUsuario
            End Get
            Set(ByVal value As Vichama.Entity.Seguridad.Usuario)
                objUsuario = value
            End Set
        End Property
    End Class


    Public Sub Main()

        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)



        '/*validar la instancia*/
        Dim MisProcesos() As Process
        MisProcesos = Process.GetProcessesByName(Application.ProductName.ToString)

        If MisProcesos.Length < 2 Then

            '/*configuracion sistema*/
            Vichama.Configurations.Aplication.Name = My.Application.Info.AssemblyName.ToString
            Vichama.Configurations.Aplication.MessageBox.Empresa = "FARMACIA"
            Vichama.Configurations.Aplication.MessageBox.EmpresaNombreCorto = "FARMA"
            Vichama.Configurations.Aplication.MessageBox.Modulo = "VENTAS"

            'Vichama.Configurations.Path.App.AppName = Vichama.Configurations.Aplication.Name

            'Clave Ini
            Vichama.Configurations.Aplication.Passwords.PasswordIni = "V1chama"


            Vichama.Configurations.Data.ConexionWeb = True
            Vichama.Configurations.Data.ConexionIni = "Data Source=.\sql2k5;Initial Catalog=db_farma;User Id=sa;Password=sql2kdev;"

            '/*configuracion del servidor de correo*/
         

            '/*Ejecutamos nuestra aplicación*/
            'CrearAccesoDirecto()
            '
            Application.Run(MDIParent)
            '
            ' Application.Run(Ventas.frmOrden)
        Else
            'Hay más de un proceso ejecutandose
            Vichama.Configurations.Aplication.MessageBox.MensajeExclamation( _
            "Ya se está ejecutando una instancia del aplicativo")
            Application.Exit()
        End If

        If Configuracion.Usuario.Conectado = True Then
            Application.Run(New MDIParent)


        End If

    End Sub



End Module
